1 Module ModMDIMAIN
2     Public Sub MDIREFRESH()
3         With MDIMain
4             
' .ToolStripNew.Enabled = True
5             
' .ToolStripEdit.Enabled = True
6             
' .ToolStripDelete.Enabled = True
7             
' .ToolStripSearch.Enabled = True
8             
' .toolStripClose.Enabled = True
9             
' .ToolStripRefresh.Enabled = True
10             
' .ToolStripPrint.Enabled = True
11             .cmdNew.Enabled = True
12             .cmdEdit.Enabled = True
13             .cmdDelete.Enabled = True
14             .cmdSearch.Enabled = True
15             .cmdRefresh.Enabled = True
16             .cmdClose.Enabled = True
17             .cmdPrint.Enabled = True
18         End With
19     End Sub
20     Public Sub MDIDISABLED()
21         With MDIMain
22             .cmdNew.Enabled = False
23             .cmdEdit.Enabled = False
24             .cmdDelete.Enabled = False
25             .cmdSearch.Enabled = False
26             .cmdRefresh.Enabled = True
27             .cmdClose.Enabled = False
28             .cmdPrint.Enabled = False
29             
'.ToolStripSearch.Enabled = False
30             
' .toolStripClose.Enabled = False
31             
'.ToolStripDelete.Enabled = False
32             
'.ToolStripEdit.Enabled = False
33             
'.ToolStripNew.Enabled = False
34             
'.ToolStripPrint.Enabled = False
35             
'.ToolStripRefresh.Enabled = False
36         End With
37     End Sub
38     Public Sub xclose()
39         Dim oFrm As Form
40         For Each oFrm In MDIMain.MdiChildren
41             
'MsgBox(oFrm.Name)
42             If oFrm.Name <>
"FrmBG" And Not _
43                      (TypeOf oFrm Is MDIMain) And Not (TypeOf oFrm Is FrmBG) Then oFrm.Close()
44         Next
45     End Sub
46 End Module


Gõ tìm kiếm nhanh...